home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / util / gnu / gnuemac_dev1_1.lha / Ed < prev    next >
Text File  |  1993-01-08  |  854b  |  40 lines
  1. /**/
  2.  
  3. parse arg argv
  4.  
  5. lib = addlib('rexxarplib.library',0,-30,0)
  6. lib = addlib('rexxsupport.library',0,-30,0)
  7.  
  8. if (~showlist('p', 'EMACS1'))
  9. then do
  10.   ADDRESS COMMAND "Execute s:Emacs"
  11.   do j=1 to 10 while ~showlist('p','EMACS1') /* wait for the port */
  12.     ADDRESS COMMAND 'Wait 5'
  13.   end
  14.  
  15.   if (~showlist('p', 'EMACS1')) then do
  16.     say "Couldn't launch Emacs"
  17.     exit 1
  18.   end
  19. end
  20.  
  21.  
  22. do while argv ~= ""
  23.   parse var argv file argv
  24.   dir = pragma('DIRECTORY')
  25.  
  26.   if (exists(dir || '/' || file)) then filename = dir || '/' || file
  27.   else if (exists(file)) then filename = file
  28.   else filename = dir || file
  29.  
  30.   lisp = '
  31.                   (progn
  32.                     (split-window-vertically)
  33.                     (find-file-other-window "' || filename || '")
  34.                   )
  35.          '
  36.   ADDRESS EMACS1 lisp
  37.   ADDRESS COMMAND 'Bin:PSX TOFRONT EMACS'
  38. end
  39.  
  40.